Monise Terra Cerezini	

Exerccios da aula 5

#Criando e editando um grfico

Um grfico de disperso entre dap e ht editando a:

* Legenda em ambos os eixos
* Marcaes (ticks) para dentro 
* Com apenas dois eixos (formato L)
* Ttulo do grfico
* Tamanho de fonte

esaligna=read.table("esaligna.csv", header=T,sep=",")
str(esaligna)
head(esaligna)

plot(esaligna$dap~esaligna$ht,ylab="Dap",xlab="Altura(ht)", main="Grfico Dap x Altura",cex.lab=1,cex.main=1.5,cex.axis=1,par(tcl=0.5),bty="l")

***********************************************************************************************************************

#Construindo dois grficos

Dois grficos lado a lado entre dap e talhao:

esaligna=read.table("esaligna.csv", header=T,sep=",")
str(esaligna)
head(esaligna)

media=tapply(esaligna$dap,INDEX=esaligna$classe,FUN=mean) 
desvio=tapply(esaligna$dap,INDEX=esaligna$classe,FUN=sd) 
media
desvio

matriz=matrix(c(media,desvio),nrow=4,ncol=2)
matriz

par(mfrow=c(1,2))
boxplot(dap~classe,data=esaligna,ylab="Dap",xlab="Classe", main="Boxplot Dap X Classe")
text(22,"a",cex=1.5)
plot(matriz, ylab="Media dos Talhes", xlab="Variana dos Talhes", main="Plot Var X Talhoes")
text(8,3.5,"b",cex=1.5)
par(mfrow=c(2,1))

************************************************************************************************************************

#Adivinhando o cdigo

ex3=read.table("exercicio3.csv",header=T,sep=",")
ex3
head(ex3)

# Plot x1 e y1

par(mfrow=c(1,2)) 
par(tcl=0.4) 
par(mar=c(6,2,12,1)) 
par(cex.axis=1) 
par(family="serif") 
par(las=1) 
par(mgp=c(2,0.2,0)) 
par(cex.lab=1) 

plot(ex3$y1~ex3$x1,xlab="Log(Patch size)(ha)",ylab="Euclidean distances",xlim=c(0.5,2),ylim=c(0,3),pch=17,cex=1.5,par(tcl=0.5,bty="L"))  
text(2,3,"a",cex=1.8)

model=lm(ex3$y1~ex3$x1) 
abline(model, lwd=2) 

# Boxplot x2 e y2
 
boxplot(x2~y2,data=ex3,ylim=c(0,3.0),names=c("","","","","",""),par(tcl=0.5)) 
mtext(c("Small", "Medium \nEdge", "Medium \nInterior", "Large \nEdge","Large \nInterior", "Control"),side= 1,cex=0.6,line=1,at=c(1,2,3,4,5,6)) 
text(6,3,"b",cex=1.8) 
text(1,3,"*",cex=1.2) 
text(2,3,"*",cex=1.2) 
text(3,3,"**",cex=1.2) 
text(4,3,"*",cex=1.2) 
text(5,3,"***",cex=1.2) 

